'======================================================
  Set OBJ = CreateObject("eDAS.Interface")

  msgbox OBJ.UserSyncAuth( "Caozx", "asdf" )

  Set OBJ = Nothing